home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / while_t < prev    next >
Text File  |  1992-02-23  |  4KB  |  161 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/cmd/while.t.old    Tue Apr 23 22:38:40 1991
  14. --- t/cmd/while.t    Thu Nov 14 08:57:02 1991
  15. ***************
  16. *** 4,10 ****
  17.   
  18.   print "1..10\n";
  19.   
  20. ! open (tmp,'>Cmd.while.tmp') || die "Can't create Cmd.while.tmp.";
  21.   print tmp "tvi925\n";
  22.   print tmp "tvi920\n";
  23.   print tmp "vt100\n";
  24. --- 4,19 ----
  25.   
  26.   print "1..10\n";
  27.   
  28. ! eval('umask');    # won't work on MS-DOS
  29. ! $msdos = $@;
  30. ! if ( $msdos ) {
  31. !     $rm = $ENV{'ROOTDIR'} . '/bin/rm';
  32. ! }
  33. ! else {
  34. !     $rm = '/bin/rm';
  35. ! }
  36. ! 
  37. ! open (tmp,'>Cmd_while.tmp') || die "Can't create Cmd_while.tmp.";
  38.   print tmp "tvi925\n";
  39.   print tmp "tvi920\n";
  40.   print tmp "vt100\n";
  41. ***************
  42. *** 14,20 ****
  43.   
  44.   # test "last" command
  45.   
  46. ! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  47.   while (<fh>) {
  48.       last if /vt100/;
  49.   }
  50. --- 23,29 ----
  51.   
  52.   # test "last" command
  53.   
  54. ! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  55.   while (<fh>) {
  56.       last if /vt100/;
  57.   }
  58. ***************
  59. *** 23,29 ****
  60.   # test "next" command
  61.   
  62.   $bad = '';
  63. ! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  64.   while (<fh>) {
  65.       next if /vt100/;
  66.       $bad = 1 if /vt100/;
  67. --- 32,38 ----
  68.   # test "next" command
  69.   
  70.   $bad = '';
  71. ! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  72.   while (<fh>) {
  73.       next if /vt100/;
  74.       $bad = 1 if /vt100/;
  75. ***************
  76. *** 33,39 ****
  77.   # test "redo" command
  78.   
  79.   $bad = '';
  80. ! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  81.   while (<fh>) {
  82.       if (s/vt100/VT100/g) {
  83.       s/VT100/Vt100/g;
  84. --- 42,48 ----
  85.   # test "redo" command
  86.   
  87.   $bad = '';
  88. ! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  89.   while (<fh>) {
  90.       if (s/vt100/VT100/g) {
  91.       s/VT100/Vt100/g;
  92. ***************
  93. *** 49,55 ****
  94.   # test "last" command
  95.   
  96.   $badcont = '';
  97. ! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  98.   line: while (<fh>) {
  99.       if (/vt100/) {last line;}
  100.   } continue {
  101. --- 58,64 ----
  102.   # test "last" command
  103.   
  104.   $badcont = '';
  105. ! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  106.   line: while (<fh>) {
  107.       if (/vt100/) {last line;}
  108.   } continue {
  109. ***************
  110. *** 62,68 ****
  111.   
  112.   $bad = '';
  113.   $badcont = 1;
  114. ! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  115.   entry: while (<fh>) {
  116.       next entry if /vt100/;
  117.       $bad = 1 if /vt100/;
  118. --- 71,77 ----
  119.   
  120.   $bad = '';
  121.   $badcont = 1;
  122. ! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  123.   entry: while (<fh>) {
  124.       next entry if /vt100/;
  125.       $bad = 1 if /vt100/;
  126. ***************
  127. *** 76,82 ****
  128.   
  129.   $bad = '';
  130.   $badcont = '';
  131. ! open(fh,'Cmd.while.tmp') || die "Can't open Cmd.while.tmp.";
  132.   loop: while (<fh>) {
  133.       if (s/vt100/VT100/g) {
  134.       s/VT100/Vt100/g;
  135. --- 85,91 ----
  136.   
  137.   $bad = '';
  138.   $badcont = '';
  139. ! open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
  140.   loop: while (<fh>) {
  141.       if (s/vt100/VT100/g) {
  142.       s/VT100/Vt100/g;
  143. ***************
  144. *** 90,96 ****
  145.   if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  146.   if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  147.   
  148. ! `/bin/rm -f Cmd.while.tmp`;
  149.   
  150.   #$x = 0;
  151.   #while (1) {
  152. --- 99,106 ----
  153.   if (!eof || $bad) {print "not ok 8\n";} else {print "ok 8\n";}
  154.   if (!$badcont) {print "ok 9\n";} else {print "not ok 9\n";}
  155.   
  156. ! close(fh) if $msdos;    # Can't unlink open file in DOS )-:
  157. ! `$rm -f Cmd_while.tmp`;
  158.   
  159.   #$x = 0;
  160.   #while (1) {
  161.